-- background: 28192 from stack: in
-- bmap block id: 28801
-- flags: 0000
-- background id: 0
-- name: MATRIX


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=334 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OmnipotentHelp
----- HyperTalk script -----
on mouseUp
  show background Button "Action"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown




-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=121 top=219 right=285 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 202
-- text size: 64
-- style flags: 8192
-- line height: 72
-- part name: Sentence
----- HyperTalk script -----
on mouseEnter
  put "Items Chosen Field" & return & "click to enact choice" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseUp
  show background Button "Action"
  send mouseUp to bkgnd btn "Action"
end mouseUp

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 4 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=120 top=50 right=185 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 202
-- text size: 64
-- style flags: 8192
-- line height: 64
-- part name: Environments
----- HyperTalk script -----
On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  global LH, TS,inc,left, top, right, bottom --set on open card
  global hich, hiline,sel, fName
  set lockscreen to true
  get the clickloc
  put item 1 of it into x
  put item 2 of it into y
  --•deselect
  if sel<>empty then
    put sel into character hich of line hiline of field fName
  end if
  --need to determine where 1st char goes depending on font
  --then calculate distance between centers of char
  -- from this determine valid select region
  --•Locate•
  --determines which character in a space free field was clicked on
  --NEED CARRIAGE RETURN
  put selectionAndHiliter() into lnum
  put theChar(x) into chnum
  if chnum is empty or lnum is empty
  then exit mouseUp
else
  put character chnum of line Lnum of field fName into Choice
  if choice=return or chnum=space
  then exit mouseUp
end if
--•select•
put chnum into hich
put lnum into hiLine
put choice into sel
put numtochar(chartonum(sel)+1) into character hich of line hiline of field fName
--∆ Set switch for no solution selected yet
put line 1 of bkgnd fld sentence into sentenceContents
if sentenceContents is empty then put "OK" into solutionsSwitch
--•put into sentance•
put choice into character 1 of field sentence
--•Ready to take you to the room/product card
show background Button "Action"
unlock screen with dissolve
set lockscreen to true
if "solutionsSwitch" is "OK" then send mouseUp to btn "Solutions"
unlock screen with dissolve
end mouseUp

on mouseEnter
  put "Click on an Environment" & return & "then choose a solution" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 5 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=120 top=50 right=185 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 202
-- text size: 64
-- style flags: 8192
-- line height: 72
-- part name: Solutions
----- HyperTalk script -----
On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  global LH, TS,inc,left, top, right, bottom --set on open card
  global hich,hiline,sel,fName
  set lockscreen to true
  get the clickloc
  put item 1 of it into x
  put item 2 of it into y
  --•deselect
  if sel<>empty then
    put sel into character hich of line hiline of field fName
  end if
  --need to determine where 1st char goes depending on font
  --then calculate distance between centers of char
  -- from this determine valid select region
  --•Locate•
  --determines which character in a space free field was clicked on
  --NEED CARRIAGE RETURN
  put selectionAndHiliter() into lnum
  put theChar(x) into chnum
  if chnum is empty or lnum is empty
  then exit mouseUp
else
  put character chnum of line Lnum of field fName into Choice
  if choice=return or chnum=space
  then exit mouseUp
end if
--•select•
put chnum into hich
put lnum into hiLine
put choice into sel
put numtochar(chartonum(sel)+1) into character hich of line hiline of field fName
--•put into sentance•
if field sentence is empty then
  put " "&choice into character 2 of field sentence
else put choice into character 2 of field sentence
show background Button "Action"
unlock screen with dissolve
end mouseUp

on mouseEnter
  put "Click on a Solution" & return & "then click Action button" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 6 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=120 top=50 right=186 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Products
----- HyperTalk script -----
on mouseDown
  Global ButtonSND
  play ButtonSND
end mouseDown

on mouseUp
  global LH,inc,left, top, right, bottom --set on open card
  global fName, product
  set cursor to busy
  get the clickloc
  put item 1 of it into x
  put item 2 of it into y
  --•deselect
  --•get the product by getting the line
  put selectionAndHiliter() into lnum
  --•Error checking
  set lockscreen to true
  if lnum is empty then
    exit mouseUp
  else
    select line lnum of field fName
    put line Lnum of field fName into product
  end if
  --•select•
  --•put into sentance•
  put product into field prodholder
  show cd btn "View Product Card"
  hide cd btn "productsHiliter"
  unlock screen with dissolve
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Products List" & return & "click on a product name" & return & "(scroll for more names)" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=211 right=256 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ActionHelp
----- HyperTalk script -----
on mouseEnter
  put "first select environment or solution" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseUp
  --beep 1 --to get your attention, see below.
  --•This button is a dummy of the real Action button, here for Help
  --•purposes.  Any changes made here, or in the real Action Help script
  --•should be duplicated, JONATHAN
end mouseUp

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 8 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=7 top=210 right=253 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 6290 / 6290
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Action
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Go To Choice Button" & return && "click to go see products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave

on mouseUp
  GLOBAL SEL,HICH,HILINE,FNAME,product,hall,floor,currentfloor
  global env,sol,theRoom,lastRoom,tidyUpNow
  --•deselect selected icon before leaving the card
  if sel<>empty then
    put sel into character hich of line hiline of field fName
  end if
  set hilite of cd button "Environments" to false
  set hilite of cd button "Solutions" to false
  set hilite of cd button "Products" to false
  --• Determine env and sol to put in room•
  put character 1 of field sentence into env
  put character 2 of field sentence into sol
  if env is empty and sol is empty then exit mouseUp
  put env && sol into testRoom
  if lastRoom <> testRoom then put true into tidyUpNow
  if sol is empty or sol is " " then
    put word 1 of line chartonum(env)-65 of field list into env
    if env is "Mac" then
      put "RoomMac" into theRoom
    end if
    if env is "PC" then
      put "RoomMicro" into theRoom
    else
      put "Room" into theRoom
    end if
    set the highlight of Background button "Network Level" of cd room to false
    set the highlight of Background button "Hardware Level" of cd room to false
    set the highlight of Background button "Application Level" of cd room to True
    put 3 into floor
    put "3  Applications" into currentfloor
    push card
    visual effect dissolve
    set hilite of cd button "Environments" to false
    set hilite of cd button "Solutions" to false
    set hilite of cd button "Products" to false
    go card "Hallway1"
    exit mouseUp
  end if
  if env is empty or env is " " then
    answer "Please choose an environment first." with "OK"
    send mouseUp to card button "environments"
    exit mouseUP
  end if
  if (env<>empty or env<>" ") and (sol<>empty or sol<>" " )
  then
  put word 1 of line chartonum(env)-65 of field list into env
  put word 1 of line chartonum(sol)-97+24 of field list into sol
  if env is "Mac" then
    put "RoomMac" into theRoom
    if sol is "Network Services" then
      put 2 into floor
      put "2  Network Services" into currentfloor
      push card
      set lockscreen to true
      go to card "Network" && theRoom
      unlock screen with dissolve
      exit mouseUP
    end if
    if sol is "HardWare" then
      put 1 into floor
      put "1  Hardware" into currentfloor
      push card
      set lockscreen to true
      go to card "Hardware Room"
      unlock screen with dissolve
      exit mouseUP
    end if
    put 3 into floor
    put "3  Applications" into currentfloor
    push card
    go to card theRoom
    clean
    unlock screen with dissolve
    exit mouseUp
  end if
  if env is "PC" then
    put "RoomMicro" into theRoom
    if sol is "Network Services" then
      put 2 into floor
      put "2  Network Services" into currentfloor
      push card
      set lockscreen to true
      go to card "Network" && theRoom
      unlock screen with dissolve
      exit mouseUP
    end if
    if sol is "HardWare" then
      put 1 into floor
      put "1  Hardware" into currentfloor
      push card
      set lockscreen to true
      go to card "Hardware Room"
      unlock screen with dissolve
      exit mouseUP
    end if
  else
    put "Room" into theRoom
  end if
  if sol is "Network Services" then
    put 2 into floor
    put "2  Network Services" into currentfloor
    push card
    set lockscreen to true
    go to card "Network" && theRoom
    unlock screen with dissolve
    exit mouseUp
  end if
  if sol is "HardWare" then
    put 1 into floor
    put "1  Hardware" into currentfloor
    push card
    set lockscreen to true
    go to card "Hardware Room"
    unlock screen with dissolve
    exit mouseUP
  end if
  put 3 into floor
  put "3  Applications" into currentfloor
  push card
  set lockscreen to true
  go to card theRoom
  unlock screen with dissolve
end if
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown



-- part 10 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=229 right=282 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 8192
-- line height: 24
-- part name: prodHolder
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Product Chosen Field" & return & "click to see product card" into fld "Tell"
end mouseEnter

on mouseUp
  global product
  show background Button "Action"
  set lockscreen to true
  put char 1 to 26 of product into product
  push card
  go to card product of stack "Products"
  unlock screen with dissolve
end mouseUp

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave



-- part 11 (field)
-- low flags: 81
-- high flags: 2001
-- rect: left=121 top=51 right=184 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 14
-- part name: Explainer
----- HyperTalk script -----
on mouseEnter
  global Help
  if Help then
    set lockscreen to true
    put "This is the Information Field " &return&return& "Selecting a Tool to the left will place information on those subjects"& " into this field.  " &return& "Select an item on a subject you are interested in, "& "and press the Action button to find out more." into me
    unlock screen with dissolve fast
  else
    put "'Explainer' Field" & return & "displays detailed help" into cd "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if help then
  else
    changeCurs 6069
    put empty into fld "Tell"
  end if
end mouseLeave

put "Items Chosen Field" & return & "click to enact your choice" into cd fld "Tell"


-- part 12 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=120 top=50 right=185 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseEnter
  global Help
  if Help then
    put "Click a Presentation to see its PICTs. " & "To install your own PICTs, place them into the FOLDER with the " & "same name as the Presentation you want them to be in. " & "'Update' the Presentation selected to list all available PICTs." into me
  end if
end mouseEnter

on mouseDown
  play "Keyboard 2"
  hide me
end mouseDown



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
  --• HELP
  on mouseEnter
    global Help
    if Help then
      set lockscreen to true
      show field "Explainer"
      put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
      unlock screen with dissolve fast
    else
      put "'Go Lobby' Button" & return & "current location" into fld "Tell"
    end if
  end mouseEnter

  On mouseDown
    global ButtonSND
    play ButtonSND
  End mouseDown

  on mouseLeave
    global Help
    if Help
    then
  else
    put empty into fld "Tell"
  end if
end mouseLeave


-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
  --• HELP
  on mouseEnter
    global Help
    if Help then
      set lockscreen to true
      show field "Explainer"
      put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
      unlock screen with dissolve fast
    else
      put "'Go Lobby' Button" & return & "current location" into fld "Tell"
    end if
  end mouseEnter

  On mouseDown
    global ButtonSND
    play ButtonSND
  End mouseDown

  on mouseLeave
    global Help
    if Help
    then
  else
    put empty into fld "Tell"
  end if
end mouseLeave


-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
  --• HELP
  on mouseEnter
    global Help
    if Help then
      set lockscreen to true
      show field "Explainer"
      put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
      unlock screen with dissolve fast
    else
      put "'Go Lobby' Button" & return & "current location" into fld "Tell"
    end if
  end mouseEnter

  On mouseDown
    global ButtonSND
    play ButtonSND
  End mouseDown

  on mouseLeave
    global Help
    if Help
    then
  else
    put empty into fld "Tell"
  end if
end mouseLeave


-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseUp
  --• HELP
  on mouseEnter
    global Help
    if Help then
      set lockscreen to true
      show field "Explainer"
      put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
      unlock screen with dissolve fast
    else
      put "'Go Lobby' Button" & return & "current location" into fld "Tell"
    end if
  end mouseEnter

  On mouseDown
    global ButtonSND
    play ButtonSND
  End mouseDown

  on mouseLeave
    global Help
    if Help
    then
  else
    put empty into fld "Tell"
  end if
end mouseLeave


-- part 38 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
  global Help
  if Help is True then exit mouseUp
  push card
  visual effect dissolve
  go to cd "Matrix"
end mouseUp

--• HELP
on mouseEnter
  global Help
  if Help then
    set lockscreen to true
    show field "Explainer"
    put "This is the 'Matrix' button. " & return & return & "This button takes you instantly to the Matrix of Solutions " & "and Environments." & return & "This is the fastest way to get started." into field "Explainer"
    unlock screen with dissolve fast
  else
    ChangeCurs 13000
    put "'Matrix' Button" & return & "click to go to the Matrix" into fld "Tell"
  end if
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  global Help
  if Help
  then
else
  put empty into fld "Tell"
end if
end mouseLeave



-- part 40 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=307 right=339 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
--• HELP
on mouseEnter
  global Help
  if Help then
    set lockscreen to true
    show field "Explainer"
    put "This is the 'Message' field. " & return & return & "As the mouse enters the active area of each " & "button on this card, " & "this field will briefly explain what the button does. " into field "Explainer"
    unlock screen with dissolve fast
  else
    put "Message Field" & return & "displays stack information" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if Help
  then
else
  put empty into fld "Tell"
end if
end mouseLeave


-- part 7 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=115 top=32 right=296 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: list


-- part 42 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=42 top=303 right=342 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 21375 / 21375
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outline mode
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Briefing Button" & return & "click to go to briefing room" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  go to cd "Briefing Room"
  unlock screen with dissolve
  pass mouseUp
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 43 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=0 top=303 right=342 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXIT
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Exit Button" & return & "click to quit or go home" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
  unlock screen with dissolve
  set lockscreen to true
  if it is "Quit" then doMenu "Quit HyperCard"
  if it is "Home" then
    put empty into field "Explainer"
    domenu Home
  end if
  unlock screen with dissolve
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 44 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=84 top=303 right=342 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 20358 / 20358
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Glossary
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  get short name of this card
  if it is "Outliner" then clearF
  push card
  visual effect iris open
  go cd "glossary"
end mouseUp

on mouseEnter
  put "Glossary Button" & return & "click to go to the Glossary" into fld "Tell"
  changeCurs 6069
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 45 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=303 right=342 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  print card
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Printer Button" & return & "click to print this image" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 46 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outliner
----- HyperTalk script -----
on mouseUp
  global Mack,Host
  push card
  set cursor to busy
  set the lockscreen to true
  put true into Mack
  put false into Host
  go to cd "Outliner"
  send mouseUp to cd btn "macSwitch"
  unlock screen with dissolve
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Outliner Button" & return & "use outline navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 47 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  unlock screen with dissolve
  go to cd "Lobby"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Lobby Button" & return & "use building navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 48 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoBack
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  go Back
  unlock screen with visual effect wipe right
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Go Back Button" & return & "click to go to prev card" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave